inherited FormGeraCobrancaProgramada: TFormGeraCobrancaProgramada
  Caption = 'Gera Cobran'#231'a Programada'
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    object Label2: TLabel
      Left = 333
      Top = 6
      Width = 100
      Height = 16
      Caption = 'Data Vencimento'
    end
    object Label1: TLabel
      Left = 15
      Top = 6
      Width = 80
      Height = 16
      Caption = 'Compet'#234'ncia '
    end
    object DBGrid1: TDBGrid
      Tag = 5
      Left = 17
      Top = 59
      Width = 464
      Height = 131
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
    end
    object DEDataVencimento: TDateEdit
      Tag = 5
      Left = 333
      Top = 26
      Width = 148
      Height = 26
      ButtonWidth = 26
      NumGlyphs = 2
      TabOrder = 1
      OnEnter = DEDataVencimentoEnter
    end
    object DTPeriodoValidade: TDateTimePicker
      Tag = 5
      Left = 15
      Top = 26
      Width = 127
      Height = 21
      CalAlignment = dtaLeft
      Date = -363
      Format = 'MMMM yyyy'
      Time = -363
      DateFormat = dfShort
      DateMode = dmUpDown
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
  end
  object dsCadastro: TDataSource
    AutoEdit = False
    DataSet = cdsCadastro
    Left = 544
    Top = 72
  end
  object QCadastro: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from Cobranca_Programada'
      'Where (CodigoEmpresa = 1)'
      ''
      
        'And (PERIODOVALIDADEINI <='#39'2003/08/01'#39' and PERIODOVALIDADEFIN >=' +
        #39'2003/08/01'#39')'
      ''
      'And (DATAINATIVO <> '#39'2003/08/01'#39' )'
      ''
      '')
    Left = 544
    Top = 112
    object QCadastroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroTIPODOCUMENTO: TIntegerField
      FieldName = 'TIPODOCUMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.TIPODOCUMENTO'
    end
    object QCadastroCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CLIENTE'
    end
    object QCadastroPORTADOR: TIntegerField
      FieldName = 'PORTADOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PORTADOR'
    end
    object QCadastroPLANO: TIntegerField
      FieldName = 'PLANO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PLANO'
    end
    object QCadastroDIAVENCIMENTO: TStringField
      FieldName = 'DIAVENCIMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DIAVENCIMENTO'
      Size = 2
    end
    object QCadastroVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.VALOR'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGOEMPRESA'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAMODIFICACAO'
    end
    object QCadastroCENTROCUSTO: TIntegerField
      FieldName = 'CENTROCUSTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CENTROCUSTO'
    end
    object QCadastroHISTORICO1: TStringField
      FieldName = 'HISTORICO1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO1'
      Size = 52
    end
    object QCadastroHISTORICO2: TStringField
      FieldName = 'HISTORICO2'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO2'
      Size = 52
    end
    object QCadastroCONTACONTABIL: TIntegerField
      FieldName = 'CONTACONTABIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CONTACONTABIL'
    end
    object QCadastroPERIODOVALIDADEINI: TDateTimeField
      FieldName = 'PERIODOVALIDADEINI'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEINI'
    end
    object QCadastroPERIODOVALIDADEFIN: TDateTimeField
      FieldName = 'PERIODOVALIDADEFIN'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEFIN'
    end
    object QCadastroDATAINATIVO: TDateTimeField
      FieldName = 'DATAINATIVO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAINATIVO'
    end
    object QCadastroGERANOTAFISCALVENDA: TSmallintField
      FieldName = 'GERANOTAFISCALVENDA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.GERANOTAFISCALVENDA'
    end
    object QCadastroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PRODUTO'
    end
    object QCadastroSERVICO: TStringField
      FieldName = 'SERVICO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.SERVICO'
      Size = 200
    end
    object QCadastroFORMAPAGAMENTO: TStringField
      FieldName = 'FORMAPAGAMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FORMAPAGAMENTO'
      Size = 40
    end
    object QCadastroABATERETENCAO: TSmallintField
      FieldName = 'ABATERETENCAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.ABATERETENCAO'
    end
    object QCadastroRETEMISS: TSmallintField
      FieldName = 'RETEMISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.RETEMISS'
    end
    object QCadastroEMITEBOLETO: TSmallintField
      FieldName = 'EMITEBOLETO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EMITEBOLETO'
    end
    object QCadastroFONTERECURSO: TIntegerField
      FieldName = 'FONTERECURSO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FONTERECURSO'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_RECUPERACAO'
    end
  end
  object dspCadastro: TDataSetProvider
    DataSet = QCadastro
    Constraints = True
    Left = 544
    Top = 152
  end
  object cdsCadastro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastro'
    Left = 544
    Top = 192
  end
  object QContasReceber: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from ContasReceber'
      ''
      
        'Order By CR_Codigo,CR_CLIENTE,CR_PLANO,CR_DATAVENCIMENTO,CR_VALO' +
        'R')
    Left = 512
    Top = 113
  end
  object QNotaFiscalvenda: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select  *   From notafiscalvenda')
    Left = 451
    Top = 114
  end
  object QCliente: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From Cliente'
      'order By cli_codigo')
    Left = 483
    Top = 113
  end
  object QTipoVenda: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From TipoVenda'
      'order By TipVend_Descricao')
    Left = 419
    Top = 115
  end
  object QAux: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select  *   From notafiscalvenda')
    Left = 387
    Top = 116
  end
  object QItensNotaFiscalVenda: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select  *   From itensnotafiscalvenda')
    Left = 355
    Top = 117
  end
  object DataSource1: TDataSource
    Left = 480
    Top = 72
  end
  object dsCamposPesquisa: TDataSource
    Left = 512
    Top = 72
  end
end
